﻿Namespace XmlRpc
    <Serializable()>
    Public NotInheritable Class SearchOrientations

        Private Sub New()

        End Sub

        Public Shared Function FromEntityOrientation(order As Entities.SearchOrientation) As String
            Select Case order
                Case Entities.SearchOrientation.Horizontal
                    Return SearchOrientations.Horizontal
                Case Entities.SearchOrientation.Vertical
                    Return SearchOrientations.Vertical
                Case Else
                    Return SearchOrientations.All
            End Select
        End Function

        Public Shared ReadOnly Property Horizontal As String
            Get
                Return "horizontal"
            End Get
        End Property


        Public Shared ReadOnly Property Vertical As String
            Get
                Return "vertical"
            End Get
        End Property

        Public Shared ReadOnly Property All As String
            Get
                Return "all"
            End Get
        End Property

    End Class
End Namespace